home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_80 / playerid.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-01  |  1KB  |  65 lines
  1. unit PlayerID;
  2.  
  3. interface
  4. uses
  5.   WinDos,
  6.   WinTypes;
  7.  
  8. const
  9.   WM_FillDir = Wm_User;
  10.   WM_TimeName = Wm_User + 1;
  11.  
  12.   cm_CD            = 120;
  13.   id_CDPlay        = 121;
  14.   id_CDTrackList   = 122;
  15.   id_CDNumTracks   = 123;
  16.   id_CdPlayList    = 124;
  17.   id_cdMode        = 125;
  18.   id_cdPosition    = 126;
  19.   id_cdLength      = 127;
  20.   id_FileFill       = 128;
  21.  
  22.  
  23.   cm_Midi          = 130;
  24.   id_MidiPlay       = 131;
  25.   id_MidiPause       = 132;
  26.   id_MidiOpen      = 133;
  27.   id_MidiMode      = 125;
  28.   id_MidiDevInfo   = 135;
  29.   id_MidiLenInfo   = 136;
  30.   id_MidiNumTracks = 137;
  31.  
  32.   cm_Wave       = 140;
  33.   id_WavePlay       = 141;
  34.   id_WavePause       = 142;
  35.   id_WaveOpen      = 143;
  36.   id_WaveDevInfo   = 144;
  37.   id_WaveLenInfo   = 145;
  38.   id_WaveNumTracks = 146;
  39.   id_WaveList       = 147;
  40.   id_WaveFill      = 148;
  41.   id_WaveCurDir    = 150;
  42.   id_WaveRecord    = 151;
  43.   id_ChDir         = 152;
  44.   id_WaveMode      = 125;
  45.  
  46.   id_TNEdit        = 5101;
  47.   id_TN5           = 5102;
  48.   id_TN10          = 5103;
  49.   id_TN15          = 5104;
  50.   id_TN20          = 5105;
  51.   id_TN30          = 5106;
  52.   id_TN40          = 5107;
  53.   id_TN50          = 5108;
  54.   id_TN60          = 5109;
  55.  
  56. type
  57.   PathStr= array[0..fsPathName] of Char;
  58.   DirStr= array[0..fsDirectory] of Char;
  59.   NameStr= array[0..fsFileName] of Char;
  60.   ExtStr= array[0..fsExtension] of Char;
  61.  
  62. implementation
  63.  
  64. end.
  65.